COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE BRD
C00003 ENDMK
C⊗;
	TITLE BRD
	A←1 ↔ B←2 ↔ C←3 ↔ D←4
	P←17
PDL:	BLOCK 100

STAR:	MOVE P,[IOWD 100,PDL]
	RESET
	MOVE [BBRD,,BRD]
	BLT BRD+77

	PUSHJ P,OBRD
	EXIT

BRD:	BLOCK 100
BBRD:	REPEAT 100,{ASCIZ/ABC/↔}

OBRD:	HRRZI C,10
	MOVE A,[BRD(B)]
ROW:	ADDI A,10
	OUTSTR [ASCIZ/

	/]
	HRROI B,-10
SQU:	MOVE BRD+10(B)
	OUTSTR
	OUTCHR [" "]
	AOJL B,SQU
	SOJG C,ROW
	OUTSTR [ASCIZ/
/]
	POPJ P,
END STAR